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ZTITL sanatenence Operations NPARSE action routines for parsing parameters’ 
MODULE MOMPARSE ( 
LANeUaer (BLIS$32) 


ADDRESSING_MODE TASNE TERNAL =GENERAL), 
ADDRESS ING™ GOODE (EXTERNAL=GENERAL) , 


Ulwrn— 


0 IDENT = 
00 d= 
5 BEGIN 
0 i eeeeeereereeereeeeeeeeeeeeneeeteeterenereteeeteetereeeeeeeeeeeeeeeeeeeeeeeet 
'@ 
6 'e Copa GHT (c) 1978, 1980, 1982, 1984 BY 
0 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
0 't ALL RIGHTS RESERVED. 


® 
® 
® 
2 
® 
is THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTUARE OR VANY. OTHER © 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. " 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. : 
® 

* 

® 

* 

® 


MRPNNNOPIN 2 2 2 3 3 SO 


!* DIGITAL ASSUMES NO Fanta itt FOR THE USE OR RELIABILITY OF ITS 


Y 
!® SOFTWARE ON EQUIPMENT WHICH NOT SUPPLIED BY DIGITAL. 


SOONAOUE WN" OOONOULS WN O0O@ 


ANPOMO 


lee eRe REAR AAAAAAAAAAEAAAAAAAAAA AE AEA TETHER AA AAA AAEEAAAAeAAeA eee 
' 


SSesosesosooocesosoess 


WANNA 


ABSTRACT: 


VEWN 2 O OONOUE WN $0 OBNOU EWN" OOONOUE WN" OOONOUS wh 


lee 
! FACILITY: DECnet-VAX V2.0 Network Management Listener 
| 


Ot et ek ed ed ed ae ed me ed ed ed ed a a a ed ad ad ad aed ad ad = COO OOOOO 
- 
a 


Bee Be Oe Oe Be Be Be Fe Se Se Ge Be Ge Se Se Se Se Se Se we SHS SH Se Be Se Se Be Se Be Oe Se Se Se Se Se Oe Se Se Oe Se Se Se Se Ge HSH Se Se Oe Oe Se Se ae Bee 
BEBE EEE SE & FAWN WII ROPUNININNPNONPD 2 2 OO 
NO 


3 
oii 
an 
040 i This module contains action routines called by NPARSE to parse and 
Re store NICE entity parameters. 
be§ ENVIRONMENT: VAX/VMS Operating System 
be i AUTHOR: Kathy Perko 
pee ! 
! CREATION DATE: 2-Jan-1983 
48 8 ! 
9 ! MODIFIE 
50 50 ! Vv 32005 mKPO000S Kathy Perko V3eduly -1984 
51 51 ‘ shen e » Woe SERVICE PASSWORD from an H-8 fi eld” to an HI-8 
26 2¢ } The architecture conflicts with itself about it. 
az 54 i v03-004 MKP0004 K thy Perko 6-June-1984 
55 Bee Don't apply area x to exec. 
3§ 2 i v03-003 MKP0003 Kathy Perko 11-May-1984 


6 
Rotmonance Goarat tong wonst ont ton eusninon # iFfopiss FG BicIAIALMGEE RalstiSaowsee.ase!9 


$3 


3 H 2 1! Check for correct loop assistant parameter ID in LOOP 

: ! CIRCUIT parameter consistency check. 

; 1 v03-002 mKP0002 Kathy Perko 28-Mar-1984 

: ? : Fix area 1 problem. 

; 1} v03-001 MKP0001 Kathy Perko 29-Jan-1984 

3; 6 . 2-7 Do some cross checking on LOOP CIRCUIT parameters. 

; 08 1} Add a routine to check for loopback assist request messages, 
3; § 0067 1! and a routine to use the MOP message software ID field as 
; + : } a load file ID. 

: $3 0 1 ie 

3 71 ee 


SS ee ae 7 —, 
| H 
re E Maintenance Operations NPARSE action routines f Sep-1 706: VAX=-11 $-32 V4.0- 

008 Declarations 


1Soseon1 984 130ei8g  DTSKSUNSHASTERSCMOM SRCSMOMPARSE.B32¢4°° (2 


$3 


1 ZSBTTL ‘Declarations’ 
' 
; TABLE OF CONTENTS: 


FORWARD ROUTINE | 
mom$parse_nice qntity. 
mom$parse_ rune ion, 
mom$parse_option, 
mom$parse_entity_id, 
mom$save Seren 
mom$save_ node id, 
mom$ Scheel oo nods entity, 
mom$check— Loop. params, 

mom$mop_chk_lodp_assist, 
| 


aonSseve no mop meq 
mom$save_load_file_id 

mom_ fix_fode_fum: NOVALUE , 
monSparie. error: NOVALUE ; 
mom$prsmoperr; 


INCLUDE FILES: 


Be Se Se Se Oe Oe Ge Be Se Se Be Se ee Se Se Be Se Se Oe Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Oe Se Se Oe Oe Se Oe Se Oe He ee ee 


a a a ed a td 2 = od = = 


3) 

38 

94 

95 

3 

39 LIBRARY I ng MOMLIB.L32'; 

100 LIBRARY ‘SHR Lies: cp Y.L32"; 
101 LIBRARY ‘ SHAL IBS ol 

: § LIBRARY ‘SYS LTBRARY : tFérier. L32'; 
104 : 
105 i EXTERNAL REFERENCES: 

35 , 

H's Smom_externals; ! Macro with common MOM externals. 
110 EXTERNAL LITERAL 

13 mom$_badmopfct; 

118 EXTER 

114 noninpa. init. ! Nparse table for NICE message entities. 
13? mom$ab_ncp_version; 

We seabier ROUTINE 

HY arse, 

11 mom$bui Ld _p2 

120 mom$netacp_qio, 

121 mom$error; 


Maintenance Operations NPARSE action routin 


5 | 


' 


SnoMPARSE.B32-1°° ah 


mom$parse_nice_entity 
TSBTTL sporrhe* 
GLOBAL ROUT! 


i FUNCTIONAL DESCRIPTION: 
nvokes the NPARSE facility to check the funcition, 
option, and entity codes in a NICE request received from NCP. 


IMPLICIT OUTPUTS: 


Initial message pars 
se_nice_entity 


Initial message parsing routine’ 
nice_entity = 


wn 


he function code. 

contains the option codes. 
contains the en 
LK contains parsing 


w 


$ity code. 
nformation about the remainder 


MEW —OOOnNOe 


ES 
If the parse fails then the error is signalled, and a NICE error 
onse is built with the error specified by the parse state 
e. Otherwise success is returned. 


! Temporary status 
Initialize message parsing data 
mom$gl_service_flags = 0; 

! Initialize the NPARSE argument block with the address and len 


! of the NICE message to be 
to parse the function, option, and entity fields of the message. 


! Clear internal options flags 
Then call the NPARSE facil 


mom$ab_nparse_b 


= mom$ab_nice_rcv_buf; 
mom$ab_nparse_b 


= .mom$g(_nicé_rcv_msg_len; 


OWONOAUNE WO OONOUE WN 0 0@ 


nma$nparse (mom$ab_nparse_blk, mom$npa_init); 


Wwr— 


i If control returns here, the message parsed correctly. Otherwise, 
: on orver was signalled and an error response returned to NCP via 


RETURN success 


ee ee ee ee ee a ee ee ed ed 


rab th Abed bad 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
' 


ec ce ee et el ce el ee el el el cel el elt el el el el el el cel cel el el el el cel cell elt eel el el 


VSSSLSSSERAS SEEMS SEAS SELE ES 


! End of MOMSPARSE_NICE_ENTITY 
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MOMSGL_LOGMASK, MOMSGL_SVD_INDEX 
MOMSAB~SERVICE.DATA 
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f I 


8 
CV“MSG"LEN 
MIT_BUF_DSC 


‘ETM ROR oene on 
-EXTRN MOMSGB_ NTIS Yor 
-EXTRN MOMSAB_ENTITY—B 
-EXTRN MOMSGQ-ENTITY 
~EXTRN ORS ERVICE _F 
-EXTRN mons “NPARSE 
Sta AB_NICE_RT 
-EXTRN MOMSAB_NICE_XM 
-EXTRN MOMSGQ-NICE-RC 
-EXTRN MOMSGL_NICE-R 
oEXTRN MOM$GO-NICE-X 
-EXTRN MOMSAB_MSGBCOCK 
-EXTRN MOMSAB_ACPQIO_ 
eEXTRN RORSGG_ACPOIO BY 
-EXTRN MOMSAB_CIB 
-EXTRN MOMSAB- TRIGGER 
-EXTRN MOMSAB_MOP_XMIT 
-EXTRN MOMSGQ-MOP_XMIT 
-EXTRN MOMSAB_MOP_RCV_ 
-EXTRN MOMS$GQ-MOP-RCV-BUF _DSC 
»EXTRN MSG 


ZEXTRN SVD$GK~PCNO~CPU 
“EXTRN SVDSGK"PCNO-STY 
ZEXTRN SVD$GK-PCNO-DAD 
ZEXTRN SVD$GK-PCNO-DCT 
EXTRN SVD$GK~PCNO-1HO 
“EXTRN SVDSGK~PCNO-NNA 
ZEXTRN SVD$GK"PCNO-SL 

ZEXTRN SVD$GK~PCNO-SP 


><>>rr- 


“~ 
geeacrooes 


< 
Cc 
~~ 
cal 
.—J 
“" 
oO 


o 

— 

*"“CcC@ 
i] 


: MOM$GO_MOP_MSG_DSC 


Snomparse .032;1°" 3 


23 


Po 
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XTRN SVDSGK_PCNO_ wy 
XTRN Atte K-PENO-$ 


XTRN SVD ok eng ' ‘a 
XTRN BApmMoP g ROMSNPA, INIT 


XTRN ng oo NCP. EREION 
XTRN ARSET UILD_P2 
«EXTRN MOMSNETACE 210, MOMSERROR 


«PSECT SCODES,NOWRT,2 


*entee#ee#skee#e#*# 
=< 

“~ 4 
» 
z 


0004 -ENTRY ROMSPARSE NICE Bixeas kz Save R2 
+ 0G 4 0 MOMSAB_NPARSE 
36 00 CLRL MOMSGL eyttitie FLA 
ae $30 G 3 OO0F MOVAB MOMSAB_NICE_RCO BUF: tap _NPARSE_BLK+8 
000000006 DO 00016 MOVL MOMSGL-NICE-RCV_MSG_L 
MOMSAB_NPARSE_BLK+4~ 
eneeet ' oF 4 $ PUSHAB SNPR_INIT 0161 
F A2 9F 00024 PUSHAB $AB_RPARSE BLK 
000000006 98 8 4 0027 CALLS #2, NMASNPARSE 
DO 0002E MOVL #1, RO 0167 
04 00031 RET 0169 


3; Routine Size: 50 bytes, Routine Base: S$CODE$ + 0000 


Bee Se Be Be Be Se Be Se Bee 
ooo oO 
-_|-—— 
VI ft 
! oO ~m 


vee-000 


SSELESEAN LS SSLERFAVASSSVSARS 


kB 8 ee ed ed od ed 


; Routine Size: 


-Sep- 706: =11 
ratgtanance, Qperat one MPanst tion coutineyat fEsSezm2 03:06:08 YMCLL Shite 


-32 V4.0-7 4g 
TER: CMOM. SRC JMOMPARSE .832; 1 


MOMSGB_ FUNCTION 


7 1 ZSBTTL ‘mom$parse_function Store function code (action routine)’ 
; } GLOBAL ROUTINE momSparse_function = 
6d 
\e ! ; FUNCTIONAL DESCRIPTION: 
178 } Parse and store the function code from the NICE command message. 
A ; IMPLICIT OUTPUTS: 
; : MOMSGB_FUNCTION contains the function code. 
1 ; 1 | ROUTINE VALUE: 
: : COMPLETION CODES: 
; 5 : z Always returns success (SS$_NORMAL). 
1 1 i- 
188 #1 
+4 BEGIN 
+ 4 Snpa_argdef; ! Define NPARSE block reference 
138 mom$gb_functio: = .nparse_block Cnpa$b_byte]; ! Set function 
<4 RETURN ss$_normal 
199 END; ! End of MOMSPARSE_FUNCTION 
0000 00000 ENTRY MOMSPARSE_FUNCTION, Save nothin 
000000006 00 18 aC 90 00002 MOVB 24 (NPARSE_BLOCK), 
50 01 00 OQO00A MOVL #1, RO 
04 00000 RET 


14 bytes, Routine Base: S$CODE$ + 0032 


“ 


$3 


1 ZSBTTL ‘mom$parse_option Store NICE message option byte (action routina)' 
GLOBAL ROUTINE momSparse_option = 


oe 


i j FUNCTIONM. DESCRIPTION: 
is routine is a NPARSE action routine that is called while 
parsing a NICE message. It saves the option byte in a global 


mom$parse_option Store NICE message option byt 14-Sep- 
1 
1 


wm 


IMPLICIT INPUTS: 
NPARSE_BLOCK CNPASB_BYTE] contains the option byte. 


ROUTINE VALUE: 
COMPLETION CODES: 
Success (SS$_NORMAL) is always returned. 


4 tt ts 


OWONAVEWN “OOOO EWN Oo 


BEGIN 

$npa_argdef; ! Define NPARSE block reference 
Save the entity code from the NPARSE argument block 
mom$gb_option_byte = .nparse_block Cnpa$b_byte); 

RETURN ss$_normal 

END; ! End of MOMSPARSE_OPTION 


Be Se Se Se Se Ge Se Ge Se Se Se Se Ss Ss Se Se Ge Se Ge Se Se Os Ge Ge Se Oe Ge Ss oe 


= PIPIPINIPIMIPININIRY 8 tt st ot tt 


BUS WN "SO OONOUL wn 


MMMM 2 SS 


; Routine Size: 14 bytes, Routine Base: S$CODE$ + 0040 
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0000 00000 -ENTRY MOMSPARSE_OPTION, Save nothin 
000000006 98 18 AC 9 Bane MOVB 24(NPARSE_BLOCK), MOMS$GB “OPTI N_BYTE 
oS rn 


Ce 


8 
(5) 


oooo 
rmnn— 
oOnnwS 


Sd 


N 6 
POcangt _Satagerece,ongstdopsremaetaten coygios * AERe=18 ts 


¢ 7 1 SSBTTL ,nosSperse. ntity_id Parse the service id’ 
5 


VAX-11 Bliss-32 V4.0-74 Page 9 
DISKSVMSMASTER: CMOM.SRCJMOMPARSE.B32;1 (6) 
GLOBAL ROUTINE momSparse_entity_id = 

ee 


! FUNCTIONAL DESCRIPTION: 
: Parse the service id code from the MOP message or NICE command. 


i IMPLICIT INPUTS: 
; NPARSE_BLOCK CNPASL_PARAM] contains the MOM internal entity code 
(MOMSC_CIRCOIT, MOMSC_LINE, MOMSC_NODE, or MOMSC_NODEBYNAME) . 


ne 


MOMSAB_ENTITY_BUF contains the entity ID 
MOMSCQ_ENTITY wifgit: contains a descriptor of the entity ID in 


! 

' 

' 

t 

i 

OUTPUTS: 
i 

i $AB_ENTITY_BUF . 

MOMSGB_ENTITY_CODE contains the MOM internal code for the entity. 
BEGIN 

Snpa_argdef; 


len, 

svd_index; 
ent = -nparse_block Cnpa$l_param); 
Select parse table according to entity code. 
SELECTU .ent OF 

SET 
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+ 
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. 
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e 
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e 
° 
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. 
e 
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e 
. 
e 


Cmom$c_node]: 
BEGIN 
MAP 


adr: REF BBLOCK; 

len = 2; 

adr = .nparse block Cnpa$l_fidptr]; 
svd_index = sVd$gk_pcno_add; 


i If the node area is 0 and it's not a Phase III (or less) NCP, 
change to area 1 


mom_fix_node_num (.adr); 
END; 


Cmom$c_Line, mom$c_nodebyname): 
BEGIN 


len = .(.nparse_block CnpeSt, fldptr})<0.8>5 

adr = .nparse_block (npasi_fldptr] + 1; 

IF .ent Fat mom$c_line THER 

ELS svd_index = svd$gk_pcno_sli 
svd_index = svd$gk_pcno_nna; 


De Se Se Se Se Se Be Se Se Se Se Se Ge Se Ge Se Fe Se Ge Se Ge Se Ge Se Ge Ge SF Ge Ge Se Fe Se Ge Se Gs te Se Ge Se Se oe Se Ge Se Se SF Ss Se SESH Se Se Se Se eseee 
~ AOAACOOMUN 
oO oF SSS 
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SN NN NAAAAAOOCOOOUMIUIVIVIUIUIVIVIUIE FEELS LL LE 
SRANVSS SS ALTRI S SRSA Sano Dee we need wo hte WN 
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Cmom$c_ circuit): 
BEGIN 


CD: 
oO 


en 


at 


of. nga ee. block past od Pi ,8>; 
adr = .nparse_block CnpaSl_fldptr] + 1; 
sya. ndex = svd$gk_pcno_slT; 


CALWAYS]: 
BEG! 


OwUoOOoOoOoOOoOONO 


BDNAULSWN—"OOONOUES WN 


WG 
Soooooo°o°oeo 


N 
CHSMOVE (.Len, .adr, monsab_er entity. buf); 
mom$gq_ entity. buf dsc 


i Put the entity ID into the Service Data Table so it will 
; override the value returned from the volatile database. 


mom$ab_service_data C.svd index, svd$b_string_len] = .len; 
CHSMOVE (. len,” 


nonbeb,. service_data C.svd_index, svd$t_string)); 
Dont service_data (.Svd _index, Svd$v_msg_param] = true; 


i Save the entity code. 


entiaie entity_code = .ent; 
RETURN ss$_normal 


SOSCSCCOOCOOCOOOOCO OOOO OOOOOOOO 


WANA NW NAAWWWWWWWw 


WANWNIWWw 
MR 2 Se oo ee 
—“OOONOUSWN—O 
oe 
AOuUSwn—ovo 


00000000v 


! End of mom$parse_entity_id 


OFFC 00000 .ENTRY MOMSPARSE ENTI 
5B 000000006 8F DO 00002 MOVL #SVDS$GK_PCN 
5A 000000006 00 9E 00009 MOVAB MOMS$AB_ SERVICE 
59 20 AC DO 00010 MOVL § 32(NPARSE_BLOCR 
17 if 0014 BNEQ 
57 02 D 16 MOVL LEN 
58 14 AC 00 00019 MOVL SO UNDARSE BLOCK), 
56 000000006 8F DO 0001D 
58 DD 00024 PUSHL ADR 
00 01 FB 00026 CALLS #1 
01 59 D4 002D 1$ CMPL nf, #1 
03 13 00 BEQL $ 
03 9 pi 00 CMPL ENT, #3 
1A 12 6 BNE 
57 14 BC 9A 0 2$: MOVZBL a @20(NPARSE_BLOCK) 
14 AC 1 C1 00 ADDL 
03 9 D1 004 CMPL iN : 
05 12 0004 BNE $ 


Ss 
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44:36 
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MOVL § #SVDSGK_PTNO_ADD. SVD_INDEX 
MOM_F IX_NODE_NUM 


' 20 (NPARSE_ BLOCK), ADR 


vO4-000" 


; Routine Size: 


; Sez 


Maintenance 0 4 ions NPARSE action routines f 


mom$parse_entity_id Parse the service id 
56 8 dO 
11 
8 00000000G 8F 00 
9 D1 
OC 12 
57 14 BC 9A 
58 14 AC 9 C1 
56 B 00 
000000006 00 68 57 28 
000000006 00 57 00 
56 00000089 &F C4 
nes 57 90 
01 AA46 $ 57 3 
A46 01 88 
000000006" 00 59 90 
50 01 bP 


0317 1 


146 bytes, Routine Base: 


SCODES + O04E 


Hae gee gn? 


COOCCOOCCOOOOoOOOoooo 
SOOOCOCOooCoCOCOCOoOOoOooOooooO 
COOCCOCCOOCOCOCOCOCOCOoOoooO 
OOOC0O9 INIA A NII 


“1386 95:00:98 Wet OAAS FERS CMG seCIMOMPaRSE 03204 


R11, SVD_INDEX 
#SVDSGK_PCNO_NNA, SVD_ INDEX 


LEN 
20(NPARSE BLOCK), ADR 
aif, pets 


vO. 
LEN, (ADR), MOMSAB_ENTITY_BUF 
LEN, MO MOM$SGQ_ENTITY BUF _DSC 


LEN, ‘HOMSAB_ SERVICE DATA+8LR6) 

LEN, (ADR) , MOMSAB_SERVICE_DATA+9(R6] 
*MOMSAB. SERVICE ~DATA+7LR6] 

EN, + MOMSGB_ ENTITY~CODE 


Bete Se Ge Ge Se Fe Se Se Fe Se Se Se Se Be Se Se 


ee a ee — 
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yo 008 monSsave pores Save NICE parameter value 14-Sep-19 4 95:08:98 DLSKSVMSMASTERSLMOM: SRCIMOMPARSE 832-9" (7) vos 
$ 4 18 1 ZSBTTL snompegve pares Save NICE parameter value' ; 
; 5 1 ! GLOBAL ROUTINE mom$save_param = : 
; ; 0301 1 !+4 ; 
3 8 § 1 ! FUNCTIONAL DESCRIPTION: ; 
s 9 1 7 This is an NPARSE action routine that is called while parsing : 
: 0 a. am a NICE message from a or a MOP message from the target node. ‘ 
; 1 0325 1! It saves a parameter in the Service Data Table and sets a flag ; 
3 ¢ 0 § 1! to indicate that the parameter from the volatile database is : 
; 0 1! not to be used for this operation (since one was supplied in ; 
; ¢ 0 3 : the NICE or MOP message). ; 
; o OQ 1 ! IMPLICIT INPUTS: 3 
: 7 = 2 NPARSE_BLOCK ppetaced to by AP) contains the parsed parameter data. . 
: 338 8 ; 1! NPASL_FLDCNT is the parameter Length. ; 
; 339 0 1! NPASL_FLDPTR is a pointer to the parameter in the received : 
; 340 0334 1'! esspoge buffer. : 
> «341 0335 1! MOMSGL_SVD_INDEX contains the index into the Service Data table . 
$ tg 8 #8 ! } (MOMSAB_SERVICE_DATA). : 
> 344 0338 1 ! IMPLICIT OUTPUTS: faba: 3 
; <2 344 : The parameter value or string is inserted into the Service Data Table. : 
; 347 0341 1 ! ROUTINE VALUE: s 
; 348 Beg 1 ! COMPLETION CODES: : 
: 04 0345 1! Always returns SS$_NORMAL. F 
; 350 0344 1! 3 
3 39) 0345 1 !-- ; 
$ $26 0346 1 F 
3 $2 0347 BEGIN 3 
3; 354 0348 : 
. ie 0349 $npa_argdef; ! Define NPARSE block reference ; 
: 356 0350 : 
3 Sor 0351 LOCAL 3 
; te O32¢ svd_index, ! Index into this parameter's entry in : 
3 oP 0353 2 ' the Service Data table. F 
; 360 0354 msgsize, ! Resultant message size ; 
3 $0) 0355 len, : 
; 66 b328 ptr; ! Temporary parameter pointer : 
3 364 O28 Add descriptor entry for this parameter. ‘ 
3 366 $300 len = .nparse_block (Cnpa$l_fldcnt]; ; 
; 368 B30) ptr = .nparse_block Cnpa$l_fldptrd; ° 
: 369 b363 ! If the NPARSE tables specified a parameter, then it is the SVD (Service : 
s 370 0364 ! Data table) index. This is true only when parsing MOP messages. When : 
; aft 0365 ' parsing NICE messages, the SVD index must be saved when the parameter : 
s oF 8398 ! ID is parsed; this routine is not called until parsing reaches the 3 
3 it 307 } parameter value. : 
3; 375 8 9 IF .nparse_block snpest _perend NEQ 0 THEN 3 
3 ’ 359 svd_index = .nparse_block Cnpa$l_param] : 
3 4 36 svd_index = .mom$gl_svd_index; : 
; 380 He ! Save the parameter in the Service Data Table. : 


a : -y 


7 
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YO0L000 mom$save nperen Save NICE parameter value 14- ~3007 138% 95:06:98 DISK SK$V nen TERS CHCA SRCIMOMPARSE. B3264 oe 


; 1 75 : 

: § 7 IF .mom$ab_service_data C.svd_index, svd$b_nice_ ~fxpe: 

H 7 svd$k_string THEN 
H 7 BEGIN 

; 385 7 Len = .len = 1; 

3 56 0 CHSMOVE (.len, (.ptr_+ 1), mom$ab_service agate C save. {¢ index, svd$t_string]); 
; 38 1 mom$ab_ service _data f sv. index, Svd$b_stfing_len n; 

; 388 ¢ mom$ab_service_data [.svd_index, svd$v_msg_param] = mane 

; 389 0 EN 

3; We 0384 ELSE 

; 391 0385 BEGIN 

3 35 $ ! 

3 S7 i Save the parameter value. 

: 395 0389 CHSCOPY (.Llen, 

; 396 0390 ptr, 

: 397 0391 0, 

; 398 0 3 

; 399 039 mom$ab_service data C.svd_index, svd$l_param)]); 

; 400 Be3¢ mom$ab_service_data (.svd_ index, svd$v _sg_param]) = true; 

: 203 b3oq 5: END: 

3 408 0397 ' Clear SVD index because the parsing routines think pe are simply 
3 tbe t384 ; setting a bit when they put the index into this variable. 

: 406 0400 mom$gl_svd_index = 0; 

; 407 0401 

; 408 et) RETURN ss$_normal 

; 409 040 

; 410 0404 1 END; ! End of MOMSSAVE_PARAM 


07FC 00000 «ENTRY MOMSSAVE_PARAM, Save R2,R3,R4,R5,R6,R7,R8,- ; 0319 
5A 00000000G 00 9E 00002 MOVAB MOMSGL | SVD_INDEX, R10 3 
59 000000006 00 4 3 00009 MOVAB AB-SERVICE DATA+9, RO : 
58 10 AC DO 00010 MOVL TO APRRSE BLOC CR), LEN ; 0360 
51 14 AC 00 00014 MOVL eS EMSE BLOCK), BTR ; 0361 
20) = AC 8 0018 TSTL (NPARSE_BLOCK) 3; 0369 
06 1 01B BEQL 3 
50 20 as 9 8 639 MOVL 5 (NPARSE BLOCK), SVD_INDEX ; 
03 (1 1 BRB 3 
A 00 B88 3 1$: MOVL MOMSGL_SVD spe SVD_INDEX 3; 0372 
56 00000089 FC 6 2$: MULLS #137, SVD_INDEX, R6 : 0376 
50 9 ¢1 000 ADDL RI, R6, R : 0380 
46 GE MOVAB MOMSAB_ SERVICE_DATA+7CR6]), $ 8395 
46 91 CMPB MOMSAB_SERVICE_DATA+6LR6), Ry ; 037 
is 8 C BNEQ 3$ 3 
0 DECL LEN ; 0379 
004 MOVC3 tEN, 1(PTR), (RO) ; 0380 
5 ; One? noe LEN, MOMSAB_. SERVICE_DATA+8(R6) $ 8 3 
98 2c a9ée 3$: MOVCS LEN, (PTR), #0, #4, (RO) : @ 88 
60 051 3 


+ ell E Maintenance Operations NPARSE action ti f $ep-1984 02:06: VAX-11 Bliss-32 V 4 
Vv 008 aenkeave nparen "Save NICE parencter value ae; 16- sen 1984 95:06:08 DISKSVMSMASTER: chon ORC IMOMPARSE.. B32;1 Pyee Ry v0 

67 1 88 4$: BISB2 #1, (R7) 3: 0394 

A 04 CLRL MOMS GL SVD_ INDEX + 0400 

50 1 4 MOVL 3; 0402 

4 A RET 3: 0404 


; Routine Size: 91 bytes, Routine Base: S$CODE$ + 00E0 


te set Rg og bn NPARSE action routines f 18-seo-1984 95:06:08 ys - 


SSBLIES 


PROPRIO WWI WII III IE I I rnnonnonnnononnonny 2 
- lon 


Fs 


—OODONAVLSWN “OVOOVoulwnr— 


oO 
= 


FRREKKE 


Pe Oe a ae ee ee 
—SOOONAUE WN 


De mal ah od eh ed ad 


ae 
ae 


SPELE 
= 


ave node id 14-Sep-1 D 


1 ZSBTTL ‘mom$save_node_id Save node id' 
GLOBAL ROUTINE mom$save_node_id = 


oe 

' FUNCTIONAL DESCRIPTION: 

‘ This is an NPARSE action that saves a node id passed in 
@ LOAD, TRIGGER, or LOOP command. 


! IMPLICIT INPUTS: 
NPARSE_BLOCK CNPASL_FLDPTR] contains the pointer to the entity 
format code and id string. 


! 

i 

i 

! 

i 

i 

! ROUTINE VALUE: 
! COMPLETION CODES: 

Always returns success (SS$_NORMAL). 
leo 


BEGIN 
Snpa_argdef; ! Define NPARSE block reference 
OCAL 

node_addr_svd, 

node_name_svd, 

Length, 

addr; 


i The LOAD HOST parameter is a word rather than a node id (for which 
: the node address is preceded by a byte of 0). 


if -nparse_block Cnpa$l_param) EQL mom$c_node_addr_param THEN 


Length = 0; 
peer = .nparse_block (Cnpa$l_fldptr]; 


EN 
ELSE 
BEGIN 


Get length and address of node id string. 


length = .(.nparse_block Cnpast_fldptr})<0,8>; ! Get length 
addr = .nparse_block (npa$i_fidptr] + 1; 


ND; 
ae? | tee -mom$gl_svd_index OF 


sudegt pene, the): 
BEGT 
node_addr_svd = svd$gk_pcno_iho; 
e_name_svd = svd$gk_pcno_$hna; 


Csvater’ cno_lpn): 
eecIn 


node_addr_svd = svd$gk_pcno_lpn; 
node_name_svd = svd$gk_pcno_$ina; 


END: 
Csvd$gk_pcino_lan): 


X-11 Bliss-3 0-74 P 
SKSVMSMASTER OSRCIMOMPARSE .832-4"" B 


} 
u 7 6 | 
ARSE Maintenance rations NPARSE action routines f 16-Sep-1984 02:06: VAX-11 BL Ais -32 v4.0 
Y0e-000 mom$save_node_id Save node id 107308-1 382 95:08:98 DISKSVMSMASTER: (MOM. SRCSMOMPARSE. B32; Pie 8 (BS vo 
: 46 6 BEGIN : : 
; 4 node_addr_svd = svd$gk_pcno_lan; : 
; $f ? pode. mname_svd = svd$gk_pcno_$inn; | : 
i 4% 6g _ TES: | 
; 475 6 iif a angen is oshy then id is a node address, otherwise it is a | : 
: $78 ° i nod e@ name str : 
: $28 if “Length EQL 0 THEN 
: 2 74 } Save the node address. : 
: 4 ; 75 BEGIN | 3 
; 4 6 BIND $ 
: tae 4 node_ ae mom$ab_service data [.node_addr_svd, svd$l_param] : : 
; 4 rg mom$ab_service_ data -node_addr_svd, svd$l_param] = .(.addr)<0,16>; ; 
; ret : mom$ab_ service” ~data [.node_addr_ “sud. svd$v “msg_param) = true; ; 
; 489 i If the node area is 0 and it's not a Phase III (or less) NCP, : 
3 res 4 change to area 1. : 
; re 5 mom_fix_node_num (node_addr); : 
i 496 ELSE, 3 
; $38 5 i If it's a node name, save it and get the node address from the ; 
: ‘3 ey : volatile database. : 
: 035 9 BEGIN F 
; $00 9 mom$ab_service data [.node_name_svd, svd$b_string_len] = .length; 3 
: 501 oh CHSMOVE (. length, .addr, 3 
; 4 95 mom 2b service_data [.node_name_svd, svd$t a§tcing)): ; 
; 50 36 mom$ab_service_ data [.ndde_name_svd, svdSv_msg_param] = true; ‘ 
3 be ; END; : 
3 5) 39 mom$gl_svd_index = 0; ! Reset parameter code ; 
; 08 3 1 2 RETURN ss$_normal 3 
; 510 308 END; ! End of mom$save_node_id 3 
| 3 
OFFC 00000 -ENTRY Rares Niotat ID, Save R2,R3,R4,R5,R6,R7,- ; 0406 ; 
8 G 0 9 90002 MOVAB Sol *Svb INDEX. R11 ; ; 
A G 8F D MOVL aSVD GR_PCRO_L R10 : 
9 G BF DO 00019 HOVL  #SVDS$GK~PCNO™ “TPN: R9 : | 
§ G 8F 3 1 MOVL #SVD$GK-PCNO-IHO, RB : 
G6 00 : 1 MOVAB SAB_SERVICE DATAS9, R? ; 
1 05 ? ; Hag (NPARSE _BLOCR), : 0436 
3 8 CLRL = LENGTH ; 


SL - > 


7 
AR Maintenance rations NPARSE action routines f 1b-se -1 706: VAX-11 Bliss-32 V4.0-74 P 7 
yoe~ 000" mom$save_node_id Save node 6 1 350-1382 95:20:98 DI SKSVMSMASTERSCMOM. SRCSMOMPARSE .B32-1°° (BS 
53 14 ac 9 D MOVL (NPARSE_BLOCK), ADDR : 2 
0 BRB : 
52 14 ¢ A 1$: MOVZBL @20(NPARSE_BLOCK), LENGTH + 044 
53 1% =A C1 000 ADDL3 #1, 20(NPARSE BLOCK), ADDR + 044 
2 D C 28: MOVL GL _SVD_INDEX, RO + 0449 
; F CMPL «=soRO, R 3 0451 
1 § D £ Hig ; NODE_ADDR_SVD : 
34 000000006 8F 0 7 nove $5 VDSGK_PCNO_SHNA, NODE _NAME_SVD : 5 
59 8 9 3$: CMPL RO, RO : 
BNEQ 4$ : 
51 D MOVL 9, NODE_ADDR_SVD : 
0 000000006 f p é MOVE #SVDSGK_PCNO_SLNA, NODE_NAME_SVD : 
SA 0 01 b1 4$: CMPL = RO, -R10 : 0461 
A 1 BNEQ : 
51 AD MOVL R10, NODE_ADDR_SvD + 0463 
0 000000006 BF D MOVL § #SVOSGK_PTNO_SCNN, NODE_NAME_SVD > 04 
2 D 5$ TSTL LENGTH + 0471 
1€ 1 7 BNEG = 6$ : 
51 00000089 i C4 00074 MULL2 #137, R1 : 0477 
50 1 7 1 78 ADDLS §=R ‘ ; 
60 3 ¢ 7F MOVZ2WL (ADDR). <RO) : 0479 
FE A741 1 8 BISB2 #1, MOMSAB_SERVICE_DATA+7(A1) > 04 
0 DD PUSHL RO > 0485 
00000000v 00 01 Fe 9 CALLS #1, MOM_FIX_NODE_NUM F 
17 1 90 BRB 7$ + 0471 
56 50 00000089 8F C5 00092 6$: MULL3 #137, NODE_NAME_SVD, R6 : 0493 
FF ATG 3 A MOVE. LENGTH, MOMSAB_SERVICE_DATA+8(R6) ; 
6746 £ : O09F MOVC3 LENGTH, (ADDR); MOMSAB-SERVICE_DATA*9CR6] ; 0495 
FE A746 01 OA4 BISB2 #1, MOMSAB_SERVICE_DATA+/CR6) + 0496 
6B D4 000A9 7S: CLRL MOMSGL_SVD-INDEX + 0499 
50 01 DO 000AB MOVL #1, R > 0501 
04 OOOAE RET : 0503 


; Routine Size: 175 bytes, Routine Base: S$CODES + 0138 


Maintenance Operations NPARSE action routines f 1b-seo-1954 95:06:08 ; 1 Uissese v4.0-74 age ‘ 8 
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“w 
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fwn-0O 0m 


errr 


v 


$3 


VAX-11 8 
k node_entity Verify a node request -Sep-1 DISKSVMSMASTER: (MOM. SRC JMOMPARSE .832; 


ZSBTTL ‘mom$check_node_entit Verify a node request’ 
ROUT INE F n 


If error then message is signalled. 


$npa_argdef; ! Define NPARSE block reference 


i Verity that request is not a circuit request (node request). 
Signa f circuit request. 


IF .mom$gb_entity_code NEQ mom$c_node AND 
-mom$gb_entity_code NEQ mom$c_nodebyname THEN 
mom$error (nma$c_sts_pna, 
-(.nparse_block Cnpa$l_fidptr))<0,16>); 


errror 


GLOBAL momSchetk. node entity = ; 
i FUNCTIONAL DESCRIPTION: 3 
: This is an — action routine shot verifies the requested ; 
: service request (LOAD/TRIGGER/DUMP) is a node request and 3 
: not a circuit request. The routine is called whenever a é 
} service request containing a service circuit is received. : 
i JMPLICIT INPUTS: : 
; , Aa emia (pointed to by AP) contains the parsed parameter F 

ate. 3 
‘ 3 
: MOMSGB_ENTITY_CODE contains the entity code which indicates if a 3 
circuTt or node request. ; 
i ROUTINE VALUE: : 
! COMPLETION CODE: 3 
: If request is a node request SUCCESS is returned. 3 
: Otherwise a parameter not applicable error (NMASC_STS_PNA) will ; 
; be signalled. : 
i SIDE EFFECTS: : 


SPRIPIFIFIPIPIPINIRI III) a sd st st st st tk kk kk kk kd 
. . . . 


Fe success 


ND; ! End MOMSCHECK_NODE_ENTITY routine 
0000 ENTRY MOMSCHECK_NODE_ENTITY, Save nothing ; 0505 
50 000000006 8 9A HOV ZBL MOMSGB_ENTITY CODE, rb : 05 
01 30 $4 CRPS RO. #1 ; 0539 
7E 4 BC 4 9001 MOVZWL @ Q(NPARSE BLOCK), =(SP) > 0541 
000000006 05 2 £6 00017 CALS. #5- MOMSERROR tev 
of 0 IE 18: mot RTL RON : 0543 
2 RET : 0544 


@---- 
ms 
or 
= 

2 


: SE SS ar ees 
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3; Routine Size: 34 bytes, Routine Base: SCODES + O1EA 


, aes. ges | 


ARSE Maintenance Operations NPARSE action routines f 16-Sep-1984 02:06: VAX-11 Bliss-32 V4.0-74 P 0 
OeL008 mom$check_loop_params Verify LOOP CIRCUIT para 1 ~3007138% 95:06:98 DESK SVMMASTERSEMOM: SRCIMOMPARSE 832047" (105 
45 ZSBTTL ‘momScheck_loop_params Verify LOOP CIRCUIT parameters’ 
2 GLOBAL ROUT INE Sembeheth Lace. poreas = , : 
4 i FUNCTIONAL DESCRIPTION: | 
i This is an NPARSE action routine that verifies the requested 
; LOOP CIRCUIT command does not contain contradictory or missing 
; parameters. 
4 1! IMPLICIT INPUTS: 
5 » A te (pointed to by AP) contains the parsed parameter 
§ The Service Data table (SVD) 
5 i ROUTINE VALUE: 
60 ! COMPLETION CODE: 
61 : f request OK, SUCCESS is returned. 
$6 : Otherwise a parameter missing error (NMASC_STS_PMS) will 
56 : be signalled. 
i 
i 


SIDE EFFECTS: 
If error then message is signalled. 
= 
BEGIN 
$npa_argdef; ! Define NPARSE block reference 


! If the LOOP CIRCUIT command specifies loop with assist and/or help type 
' it must be an Ethernet circuit, and therefore a PHYSICAL ADDRESS or NODE 
H parameter must be specified. 
IF (.mom$gl_service_flags Cmom$v_loop_w_assist] OR 
smoSe sorvice.date Csvd$gk_pcno_lph, svd$v_msg_param]) AND 
NOT (.monSab_service date tsa gk_Pcno_pha, svd$v_msg_param] OR 


SHISAF 


= RORoroRoononorononononuRU INTO RORoRUnonunununy a es 2S 


NaI 
-o 


-mom$ab_service data [svd$gk_pcno_lan, svd$v_msg_param) OR 
-mom$ab_service_data [svd$gk_pcno_$lna, svd$v_msg_param]) THEN 
mom$error (nma$c_stS_pms 
nma$c_pcno_pha); 


' 
! If the LOOP CIRCUIT command specifies LOOP HELP but no ASSISTANT 
PHYSICAL ADDRESS or NODE, return an error. 
I 


SESRASLESSELSEARASLS SSVSAF UNIS Soo us ahve o Ooo week 


o 
@ 


PUPP APPA AA AAAI 


F .mom$ab_service_data svdSgk -peno Lph, svdSy_msg paren) AND 
T ,mom$gl_service_flags [mom$v_Toop_w_assist] THEN 
momSerror Tnma$c_sts_pms, 
nma$c_pcno_lpa); 


S$ 


Be Se Ge Se Ge Ge Fe Se Ge Se Se Ge Se Ge Ge Se Be Fe Se Gs Ge Fe Ge Se Ge Se Se Se Se Gs Se Gs Gs Ge Se Ge Ge Ge Se Se Oe Se Ge Ge Oe Ge Ge Ge Ge ee 


see 
Aw eal val ah ab ab Ab Ab Ab Ab Ab Ab Ab ah hb dh hh Ah dh ah ah sh ah ahah ahah al al 


RAN LSSSVSEARAN LS SaNoAK ww 


SOOOOCCOoOCooooooooooo 


RETURN success , 
END; ! End MOMSCHECK_LOOP_PARAMS routine 


00 eENTRY MOMSCHECK LOOP_PARAMS, uve R2,R3 ; 0546 
MOVAB MOMSC\ _SERVICE-FLAGS, R ; 


0c 000 
53 000000006 00 9%€ 00002 


Maintenance Operations NPARSE acti 
mom$check_loop_params Verify LOOP 


3; Routine Size: Routine Base: 


ef 000000006 
00000000* 
16 00000000* 
OF 00000000* 
08 00000000* 


Of 00000000* 


$e 99 


3 


on 
C 


Mo" OoOnvoyr 


" 7 


E8 00022 


SCODES + 020C 


-Sep-19 
~Sep-1 


BBS 
BLBC 


Bho 93:08:88 NES inShASTERsCHGH sacInomPaRse 23264 


MOVAB 


SERROR, R2 
MOMSGL_SERVICE_FLAGS, 1$ 
<chons USERVICE_DATA+<SVDSGK_PCNO_ LPH#137>-; 
<hOhs _SERVICE_DATA+<SVD$GK_PCNO_ PHAS137>~; 
<ehohs _SERVICE_DATA+<SVD$GK_PCNO_ LAN®137><: 


jp. SERVICE. DATA+<SVD$GK_PCNO_SLNA®=- 


‘nos P 
Ls SERVICE _DATA+<SVD$GK_PCNO_LPH#137>- 


fons SERVICE_FLAGS, 3$ 
i it (SPT vase . 


“(5 ) 
, MOMSERROR 
RO 


o 


(46) 


: 9507 
0579 
0580 
0581 
0582 


0588 
0589 
0590 


0593 
0594 


> 
zz 


vO4-000" 


SS233 


St a 2 a 


WN SO OONOUVUESWN “OOONOUE WhO 


PAAAAAAAAAAASAAAAAAAS 


Se Se Se Se Se Ge Se Ge Se Se Be Ss Oe Se Fe Se Se Ge Se Se Se Ge Se Se Se Se Se Se Se Se SH Oe Se Se ee ee 
AAAS . 


SOAS 
www 


3; Routine Size: 


a —— -4 
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mom$save_mop_msg Save MOP message received fro 1 =30071 382 95:08:98 DL SKSVMSNASTER-CMOM SRCSMOMPARSE 832047" (145 
5 1 ZSBTTL ‘mom$save_mop_ms Save MOP message received from target’ 


GLOBAL ROUTINE mom SS ve n0p_ase = 
FUNCTIONAL DESCRIPTION: 
This is an NPARSE action routine that is called when certain 


MOP messages are received from the target node. These messages 
ayer be saved qocayee. if the target does not receive a response 


POW 
ARGV OOB LEA 


| 
1 
1 
1 . 
1! | 
1! 
1! 
1! within a certain time, the target retransmits them. Therefore, 
6 1! MOM must be prepared to skip over retransmissions of the same 
6 ;} message. So, save the message here to do the comparison for 
° } : retransmissions against. 
one 1 ! IMPLICIT INPUTS: 
$10 : eee LE (pointed to by AP) contains the parsed parameter 
! ata. 
7 $47! 
\§ 1 ! ROUTINE VALUE: 
ol? : COMPLETION CODE: 
0615 1 ! SIDE EFFECTS: 
8018 1! The MOP message and a descriptor of it are saved in MOMS$SAB_MOP_MSG 
oF : H and MOM$GQ_MOP_MSG_DSC respectively. 
0619 1 !-- 
Be y BEGIN 
be § $npa_argdef; ! Define NPARSE block reference 
0624 mom$gq_mop_msg_dsc £0} = ,mom$ab_nparse_blk Cnpa$l_msgcnt); 
0625 eoasaq mop _ms9 dsc 1J = mom$ab_mop_msg; 
06 § CH E (.mom$ab_nparse_blk (npa$l_imsgcnt), 
06 -mom$ab_nparse_blk (Cnpa$l_msgptriJ, 
0628 mom$ab_mop_msg) ; 
+494 RETURN success 
0630 1 END; ! End mom$save_mop_msg routine 
007C 00000 sENTRY MOMSSAVE_MOP_MSG, Save R2,R3,R4,R5,R6 : 0596 
56 4 44 44443 9E 0000 MOVAB MOMSAB_MOP_MSG 3 
1 000000006 P9000 MOVL § MOMSAB"NPARSE BLK+4, R1 : 0624 
000000006 0 p 19 MOVL R1, MOMSGQ_MOP_MSG OSC ; 
000000006 66 001 MOVAB MOMSAB_MOP-MSG, MOMS$GQ_MOP_MSG_DSC+4 ; 0625 
0 000000006 90 p 0 3 MOVL_ MOMSAB"NPARSE BLK+8, RO : 0627 
66 § 1 0 MOVC3 R1, (RO), MOMSAB_MOP_MSG : 0626 
0 01 DO 00029 MOVL #1, RO : 0629 
04 0002C RET ; 0650 
45 bytes, Routine Base: S$CODE$ + 025D 
' 


v0G 
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Vilwr 
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TERS 


ie 
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mom$mop_chk_loop_assist Check for MOP Loop ass 1984 12:44:36 


ODOoOOCOCOCOCOOOoOoCOoOO 
PARADA AAAASA AAS AO 


, et tat et et ee 


SEF 


oOoooococoo 
AOVUMVIMNUNUVIUIUIUIUI SE & 


PAPA AA AAO 
OWONAULS WN $$ O OONOULS AO OONAUS WN 


Sooooocoo 


0660 


=PONIWWIWINIAIPIPINPINIPIDININPINININININID 2 9 9 9 tt 
@ 


14-Sep- 


ZSBTTL ‘mom$mop_chk_loop_assist Check for MOP loop assist request’ 
GLOBAL ROUTINE mMom$mop_chk_loop_assist = 


i FUNCTIONAL DESCRIPTION: 


This is_an NPARSE action routine that is called during autoservice 
if a MOP messages is received which doesn't contain any of the 

rorogn* see MOP function codes. In this case, it could be a 

multicast request for loopback assistance on the Ethernet. Check to 
make sure the message was sent to the cross company Loopback Assistance 
ayer *gees aeerans. If so, return success so the volunteer assistance 

e sent. 


IMPLICIT INPUTS: 
> ean aie (pointed to by AP) contains the parsed parameter 
ata. 


ROUTINE VALUE: 

COMPLETION CODE: 
Returns MOM$_SUC if the system sending the MOP message sent it 
to the NI multicast loopback assistance address. 


BEGIN 
LOCAL 
status; 


IND 
NI_loop_assis_mult = UPLIT (ZX"OOOOOOCF*, WORD (%x'0000')); 


i Check to make sure the MOP message was sent to the multicast loopback 
assist address. The destination address of the message was saved 


Status = mom$_badmopfct: 
IF -pontal service flags Cmom$v_ni_circ] THEN 


IF CHSEQL (mom$k_ni_addr_length, ni_loop_assis_mult, 
mom$k_ni_addr_ length, q 
mom$2B_service_data Csvd$gk_pcno_$da, svd$t_string]) THEN 
status = success; 


RETURN “status; 
END; ! End mom$mop_chk_loop_assist routine 


.PSECT $PLITS,NOWRT,NOEXE,2 
QO0000CF 00000 P.AAA: .LONG 207 
0000 00004 :WORD 
NI_LOOP_ASSIS_MULT= P.AAA 


-PSECT $CODES$,NOWRT,2 


DISKSVMSMASTER:CMOM.SRC JMOMPARSE .B32; 1 


: 
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PARSE Maintenance Operations NPARSE action routines f 16- Sep-1984 02:0 VAX-11 Bliss-32 V4.0- e 
yor 000 mom$mop_chk loop. assist Check for MOP Loop assi 1 Saat yi 93: 28: 98 DISK $VMSh TER: CMOM. SRCSMOMPARSE. 832; A 35 
001 0 ENTRY MOMSMOP_CHK_LOOP_ASSIST, Save R2,R3,R4 3; 0632 
4 000000006 F OD 3 MOVL aor BADMOPF CT,” STATUS : 066 
11 909000006 8 1 5 BBC #1, nORSGL SERVICE FLAGS, 1$ : 06 

00000000* 900 00000000' 6 29 11 CMPC3) #6. too: ASSIS_MULT, <- 3 0671 

<HOMS AB _SERVICE_DATA+<SVD$GK_PCNO_$DA*137>>-: 

3 1 1D BNEQ is ; 
26 1 OD 1F MOVL Al US 3; 0672 
0 4 D O3@ 1$: MOVL STATS RO + 0674 
04 000 RET 3 0675 


; Routine Size: 38 bytes, Routine Base: $CODE$ + 028A 


RS 
R 

R$! 
TS' 
TS' 
TS' 
TS 
TS' 
TS 
TS 
TS 
TS 


ceansiceaaniesetan 7 =} 


Dd 8 
Maintenance Operations NPARSE action routines f 16-Sep-1984 02:06:08 V 
v04-900 mom$save_load_file_id Save load file specific 1 7300-1382 93:08: 6 D 


676 1 ZSBTTL ‘mom$save_load_file_id Save load file specification’ 
GLOBAL ROUTINE mom$save_load_file_id = 


AX-11 Bliss-32 a ene Page $3 
ISKSVMSMASTER:CMOM.SRCJMOMPARSE.B32;1 (135) 


67 : 

24 6 FUNCTIONAL DESCRIPTION: 
69 681 : This is an NPARSE action routine MOM calls if it receives a 
694 06 ¢ : MOP progran load request which contains string in the software 
695 06 ; id field of the message. Append the logical name MOMSLOAD 
696 0684 ! to the string. It will be translated by RMS when the load 
697 0685 } file is opened. The logical name is used as security to make 
698 Bone : sure that only files in one directory can be loaded. 

44 bes : 

00 0685 } 

701 5994 ! IMPLICIT INPUTS: 

70 690 : NPARSE_BLOCK (pointed to by AP) contains the parsed parameter 
70 0691 : data. 

704 069 ! 

705 069 ! ROUTINE VALUE: 

706 0694 ' COMPLETION CODE: 

707 0695 ! 

708 0696 lon 

709 0697 BEGIN 

710 bes $npa_argdef; ! Define NPARSE block reference 

0700 LOCAL 
0701 file_svd, 
Len 
svd_ptr; 


The software type field precedes the software ID in the MOP message. 


4 

i 

: This field determines which load file (secondary, tertiary, or operating 

! system) to load. Put the load file id in the correct load file entry 

of the Service Data Table (SVD). 

file_svd = 

2 TSELECTONEU -mom$ab_service_data Csvd$gk_pcno_sty, svd$l_param] OF 

tant gt + City svd$gk_pcno_tlo; ' Tertiary loader 
nma$c_soft_osys]: svd$gk_pcno_loa; ! Operating system 
LOTHERGISEJ: svd$gk_pcno_Slo; ! Secondary loader 


WALA PO PUPIPONININONID) 2 I SS 
WN 0 OONOU EWN" OOONOUS Wh 


' Concatenate the logical name, MOMSLOAD, with the file specification 
in the software ID field of the MOP message. 
n 


SNS 


' 
i 
1 
i 
le 
sv 
s 


RoRoRonononononononononofonono WWIII onononononononononononononony 3 


SN NSS SSS 


WAIAIPOPINONININPININID) 2 2 I I SH DOOOOOCOO 
M—OOONO UNE WN @ OOONAUES WN $C OONOUS wry 


SOOCOSOOCOSOOSSOOOSOOOOCOOOOOOOOoOoOOoO 


3 = XCHARCOUNT ("MOMSLOAD:'):; 

#6 d_ptr = mom$ab_service_data t.file svd, svd$t string]; 

ree svd_ptr = CHSMOVE (.len, UPLIT BYTE T'MOMSLOAD:"), .svd_ptr); 
739 Save the software id in the Service Data Table. 

741 len = .len + .nparse_block Copast fldent) - 1; 

74 MOP_ptr = .nparse_block Cnpa$l_fldptrj; 

74 CHSMOVE (.len, (.MOP_ptr + 1),~.svd ptr): 

744 mom$ab_service_data [.file_svd, svd$b_string_len] = .Len; 


| 
| 


mom$save_load_file_id 


>> 
coco 


Routine Base: 


; Routine Size: 


Maintenance Operations NPARSE action routines 


Save load file spec 


4C 246 4D 4F 


50 000000006 
02 

50 000000006 
50 000000006 


56 
50 00000089 
57 
00 
56 10 
56 FF 
50 14 
AQ 
47 
47 
50 


15:20:88 Ot 


mom$ab_service_data C.file_svd, cates = true; 
RETURN success; 
END; 


4D 00006 P.AAB: 


Oovwy bP VirIWOowow0oui wow COO 
AFH ADOOOFOMOMNUNOOIMDOO COO 


SOVDOWITOONOOCOCT-9C 90 90 9 
fOowowom—o—Noo— on — on — 
OOoOQoooooooooooooooo°ooo 
SOOooooooooooooooooocooo 
SOOOCCooooooooooooooooo 
BOONE &SWWIWN NNN) 2 Ss 
DAH O NWT SNMMOWOE PWS MOUIWO 


SCODES + 0280 


X-11 Bliss-32 V 
SKSVMSMA 


! End mom$save_load_file_id routine 


-PSECT SPLITS,NOWRT,NOEXE,2 


\MOMSLOAD: \ 


-PSECT S$CODE$,NOWRT,2 
-ENTRY ROMs SAVE LOAD_FILE_ID, Save R2,R3,R4,R5,R6,- 


MOMSAB_SERVICE_DATA+9, 
RO. at 
#SVD$GK_PCNO_TLO, FILE_SVD 
Ba 
#SVDSGK_PCNO_LOA, FILE_SVD 
#SVDSGK_PCNO_SLO, FILE_SVD 


LEt 
#137, FILE_SVD, R7 
RB R7, SVB_PTR 


EN, P.AAB,~<SVD_PTR) 
TSCNPARSE 6 BLOCK)? LEN, RO 
20(NPARSE BLOCK), MOP_PTR 
LEN, 1(MOP PTR VD7PT 


TER: con. she MOMPARSE. B32: 


R8 
<<HOMSAB SERVITE _DATA+<SVD$GK _PCNO_ STY#137>=: 


Sete Se Se Ge Be Be Se Ge Se Be Be Ge Se Ge Be Se Be 


oooocoo Coco COO 
MUN—Oo OVE fw 


ANANNNNN ONIN ON™N 


oa 


SN 
ei | 
DONOUSWN—O 


> i 


—O 


nance seohone or} NPARSE action routines f 16- 50-1984 9g 09:98 VAX-11 BL 


iss-32 V4.0-7 
X_NODE Fix node address parameter -Sep-1 DISKSVMSMASTER: 


3 af 
(MOM. SRC JMOMPARSE. B32;3 wa | ) 


= 
o 
—_e 
= | 
Nee 


Uw "O0OOn 1 


ZSBTTL_ "MOM_FIX_NODE_NUM Fix node address arameter (action routine)’ 
ROUTINE MOM~FIX"NODE-NUM (NODE_ADDR) : NOVAL ue’: 


a 
St ee et een ne 


This is an perstns 9 action routine that =e the node address. If 
the area number i it can be one of two cases 

The NCP is a Phase IV NCP, and user did not specify an area 
number in the NCP command. jn this case, assume the user 
means area 1 (since 0 is an invalid area number). 
the NCP is a Phase III NCP and therefore doesn't understand 
area numbers. In this case, assume the user means the 
executor node's area. 


{ FORMAL PARAMETERS: 
NODE _ADDR Address of Node address to fix. 


IMP oy earyres 


seaeats OUTPUTS: 
None 


BEGIN 


P 
node_addr : REF BBLOCK (2); 


LOCAL 


lee 

: FUNCTIONAL DESCRIPTION: 

exec_addr : BBLOCK (2); | 
| 
| 


' 

i If the node address is 0, then it's the executor, so leave it that way. 
If the area number of the address is 0, then change it. 

I 


IF .node_addr (nma$v_addr] NEQ 0 AND 
“node addr nma$v_area) EQL 0 THEN 


i If NCP is a Phase III NCP, use area 0 for the volatile database. 
i NETACP witt assume the executor's area number. for permanent database, 
get the exec address from the permanent database and use it's area number. 
iF CHSRCHAR (mom$ab _ncp_version) LEQ 3 then 

node_addr [nma$v_aréa] = 0 
ELSE 


i If NCP is a Phase IV NCP, use area 1. 
node_addr Cnma$v_area] = 1; 


00° ~“ SENNA AAA AAAAAO 


000 O00 000000000000 00: > le DPA E £* 


RETURN - 


SOOOOOSOOCOOCOCOSOOSOOOCOOCOOOCOOOSOSSOSOSSSOSOOCOSOOOOOCOOCOOO OOO OOOO OOOOOOO 


a et tae” De es Di Die Dies pin Di Bi De ete i i tt Bi Se Be te be i te ie te ie be ie ie ee be et’ ee be ee ee ee 


POP IWIWIWIWI WII WI WII IAI IIOP 4 9 


WO OONO UE WIN 9 OODNOAUE WIN 9 OONAUE WN O OONOAOUS WW OCONOU 


ee Le ee 


; 807 0794 #1 END; ! End of MOM_FIX_NODE_NUM 


0000 00000 MOM_F Ix as ees 


Save noching : 0738 

50 04 ac D 9002 “OVL § NODE_ADDR, RO + 0776 
O3FF BF 60 83 000 BITW  (RO)> #1033 : 
B 13 00008 BEQL $ ; 

FC OF 01 AO 9 9900 BITS (RO), #252 : 0777 
14 12 0001 BNEQ 2$ : 

03 000000006 00 91 00014 CMPB  MOMSAB_NCP_VERSION, #3 + 0784 
6 1A 00018 BGTRU 1$ ; 

01 Ad FC BF 8A 0001D BICB2 #252, 1(RO) + 0785 
04 00028 RET ; 

60 06 OA 01 FO 00023 1$: INSV #1, #10, #6, (RO) + 0790 

04 00028 2$: RET + 0794 


; Routine Size: 41 bytes, Routine Base: S$CODE$ + 031A 


H it ' 

Q j - = 3 3 = = e = 
voe-008" monspersecerror Guild and signal error taction le-Sep-198e $o:cei86 — DLSKSVMEMASTERS (MOR. SRCSMOMPARSE 032017" (18), 
5 


ZSBTTL ‘mom$parse_error Build and si 
GLOBAL ROUTINE momSparse_error : NOVA 


od 


pret error (action routine)’ 
UE = 


'ee 
: FUNCTIONAL DESCRIPTION: 
; This NPARSE action routine is called if an error is found when parsing 


the parameters of a NICE command message. It signals the error. 
FORMAL PARAMETERS: 
NONE 


| 


— a — 9 


WN "SO OBNOVEWN “OOOnOu 


| 

IMPLICIT INPUTS: 
NPARSE argument block. 

NPASL_PARAM contains the error code. 

NPASL_FLDPTR points to the parameter in the message. 


Se 


POPPI WWII WI WI II I AI I IO RPOPIPUPUNNNID 4 tt tt 


SIDE EFFECTS: 
Error message is signalled. 


BEGIN 
Snpa_argdef; ! Define NPARSE block reference 
LOCAL 


te 2 4 A ts 


2 09 CD CD 
MEUM =O COONAN WN (OOO VOUS WO 


Be Se Se Ge Se Ge Se Se Ge Se Se Se Se Ge Se Ge Ge Fe Se Se Se Se Ge Se Ge Se Se Se Se Se Ge Se Se Se Se Se Ge Se Ge Se Se Se Ge Be Se Ge ee Seee 


0 as 
0 
5 | err_code ! Error code 
9 err—detail; ! Error detail 
4 08 err_code = .nparse_block Cnpa$l_param]; ! Get error code 
80 08 Check for parameters to move in addition to error status. 
Beg err_detail = ( 
az ; SELEC TONEY -err_code OF 
ae? 8 nma$c_sts_pty, 
$ 08 nma$c_Sts_pva 
Se 4 nma$c_sts_pnaJ: 
; -T.nparse_block Cnpa$l_msgptr] - 2)<0,16,0>; ! Get detail code 
50 COTHERWISE): 
51 “1; 
i 19) | 
3 841 mom$error (.err_code, .err_detail); ! Signal error message 
§3$ 8 i END; ! End of MOMSPARSE_ERROR 
00 00 -ENTRY SPARSE_ERROR, Save nothing ; 0796 
51 20 ac D0 0000 MOVL = 3 CNPARSE “BLOCKS, ERR_CODE ; Be 
FFFFFFEA 8F 51 D1 00006 CMPL ERR_CODE, #- ; 0851 


voe-000" monpersecerror Bulld and signal error taction igor age Bees DTSKSUmSMAS TER: ChOR-SRCSMOMPARSE..03251°° (185 


| 
| 


2 1 BEQGLSésé18 : 
FFFFFFFO  8F fF CHL ERR_CODE, #-16 ; 
FFFFFFFA  8F 1 ; i CMPL RR_CODE, #6 ; 
A F BNEG $7 F 
50 08 A $: novi (NPARSE_BLOCK) + 0834 
FE OA ; nov WL pe ERR_ SET AIC’ ; 
50 CE 3s MNEG ERR RETAIL + 0837 
9 DD $: PUSHL ERh_p + 0841 
DD PUSHL ERR™ ieee : 
000000006 00 2 FB CALLS #2, “MOMSERROR : 
04 RE + 0843 


; Routine Size: 58 bytes, Routine Base: SCODES + 0343 


Maintenance rations NPARSE action routines f 16-Sep-1984 VAX-11 Bliss-32 V4.0- P i 
suslpronneere’ 00 aeveuster Ourblon crear i “320-198 Fy ee ey Pedi ntAlS fens cMGn secSnompanse .es20t°* (12) 


ZSBTTL ° goat ponee re loom -pereneter parsing error’ 
GLOBAL ROUTI 


oe 


; FUNCTIONAL DESCRIPTION: 


This routine sets up reaganee message information for errors 
encountered in parsing P messages. 


i FORMAL PARAMETERS: 
i NONE 
i IMPLICIT INPUTS: 


i 
' 
' 
' 
‘ 
' 
' 
' 
' The NPARSE argument block (NPASL_PARAM) contains the code for 
the optional text message to be Signalled. 

' 

' 

' 

' 

' 


i IMPLICIT OUTPUTS: 
i MOMSAB_MSGBLOCK contains the response message information. 


Snpa_argdef; 


i Set up MOP protocol error with optional text message. 


mom$ab _msgblock (msb$l_flags] = msb$m_msg_ fld; 
msb$b_code] = nma$c_sts_(pr 


mom$ab_msgblock pr; 
msb$i_text] = .nparse_ block’ Cnpa$l_param); 


mom$ab_msgblock 
RETURN success 
END; ! End of mom$prsmoperr 


1 
1 
) 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| BEGIN 


* ENTRY MOMSPRSMOPERR £,S2uS R2 > 0845 
52 000000006 00 MOVAB MOMSAB_MSGBLO ; 

6 MOVL #4, MOMSAB Loe. OcK : 0875 

04 A MNEGB #17, MOMSAB_MSGBLOCK+ : 087 
Cc hU«COA at b MOVL Se(hPARSE BCOCK), ROMSAB _MSGBLOCK+12 3 

5 1 2 i MOVL : 0879 

4 RET : 0881 


3; Routine Size: 25 bytes, Routine Base: $CODE$ + 037D 


iB 


arent Maintenance Operations NPARSE action routines f 16-se0-1984 93:06 +06: 98 VAX-11 Bliss-32 V4.0 


mom$prsmoperr MOP parameter parsing error 14-Sep-19 


301 Ose 1 Whim ! End of module 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 918 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, afin 'nd Seog bpd fs 
SPLITS 15 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
coccceses Syabols eoooeeeo Pages Processing 
File Total Loaded Percent Mapped Time 


~ 


0BJ JMOML MOML 18.3351 33 17 21 00: 00.1 

ESHA BINRAL NMALIBRY.L32;1 Bi: 11 1 7 80: 0.¢ 

LIBINET.L32;1 ’ 0 0 63 00: 0:8 
ESvstipis SFaR LET-L32;1 1 581 80: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MOMPARSE/OBJ=OBJ$:MOMPARSE MSRC$:MOMPARSE/UPDATE=(CNHS:MOMPARSE ) 


Size: 918 le + 15 data bytes 
Run Time: 09. \-3 
748. 
471 
Lexenes/CPU-Rin: 12398 
107 pages 


Memor Nett ed: 
Compilation Complete 


DISKSVMSMASTER: (MOM. she MOMPARSE .832; * a 


32 
(16) 


A590 AH-BT13A-SE EQUIPMENT CORPORA 
Sw VAX/VMS V4.0 : NTIAL AND PROPRIET 


TION | 
ARY 


I 
R 


